Ответить в теме: Копирование листов Excel в харборе
Для входа нажмите здесь
Вы можете выбрать иконку, характеризующую сообщение
Преобразит www.example.com в [URL]http://www.example.com[/URL].
Их help`а A collection of all the sheets in the specified or active workbook. The Sheets collection can contain Chart or Worksheet objects.
Код: Sheets("Лист1").Copy After:=Sheets(n) Если я правильно понял, то в этом коде макроса бейсика n указывает под каким номером будет скопированный лист. Как указать этот параметр в харборе я не знаю :-( В чем разница между oWorkBook:Worksheets("Specifikaciq"):Copy(oAS) и oWorkBook:sheets("Specifikaciq"):Copy(oAS) я тоже не знаю :-(
Sheets("Лист1").Copy After:=Sheets(n)
Код: TRY oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel CATCH Alert("Excel не доступен!") RETURN .F. END oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги oAS:=oWorkBook:Worksheets():Add() //добавление таблицы oAS:Name:="Specifikaciq" //присвоение имени таблице //Копирование листа "Specifikaciq" oWorkBook:Worksheets("Specifikaciq"):Copy(oAS) //Копирование всех листов oWorkBook:Worksheets():Copy(oAS)
TRY oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel CATCH Alert("Excel не доступен!") RETURN .F. END oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги oAS:=oWorkBook:Worksheets():Add() //добавление таблицы oAS:Name:="Specifikaciq" //присвоение имени таблице //Копирование листа "Specifikaciq" oWorkBook:Worksheets("Specifikaciq"):Copy(oAS) //Копирование всех листов oWorkBook:Worksheets():Copy(oAS)
Возможно, кто-то подскажет, как из текста на харборе попросить Excel скопировать лист. В Excel текст макроса на бейсике такой: Sheets("Лист1").Copy After:=Sheets(1) Как это переписать на харборе? У меня не получается
Правила форума